dim ws
set ws = CreateObject("WScript.Shell")
dim varName : varName = "PADS_SHORTCUT_ROOT"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
dim varValue : varValue = ws.RegRead(regPath)
dim ocmd
ocmd = "cscript """ & varValue & "\Skill\includes\nowToClipboard.vbs"""	
ws.run ocmd, 0, False
	
Application.ExecuteCommand("Set Group Origin")